home *** CD-ROM | disk | FTP | other *** search
/ Elite College Girls 1 / Elite College Girls - Volume 1.iso / pc / shared.dir / 01956.ls < prev    next >
Encoding:
Text File  |  1996-02-02  |  927 b   |  43 lines
  1. global gProjectorInUse, colorcrsr, gMovieSprite
  2.  
  3. on setCursor newCursor, newXCursor
  4.   if (the machineType = 256) or not gProjectorInUse then
  5.     if newCursor = -1 then
  6.       set the cursor of sprite gMovieSprite to -1
  7.     else
  8.       set the cursor of sprite gMovieSprite to [the number of cast newCursor, the number of cast (newCursor & " Mask")]
  9.     end if
  10.   else
  11.     if newCursor = -1 then
  12.       restoreCursor()
  13.     else
  14.       setXcursor(newXCursor)
  15.     end if
  16.   end if
  17. end
  18.  
  19. on setXcursor newXCursor
  20.   if newXCursor < 9101 then
  21.     set newXCursor to 9101
  22.   else
  23.     if newXCursor > 9403 then
  24.       set newXCursor to 9403
  25.     end if
  26.   end if
  27.   if not objectp(colorcrsr) then
  28.     set colorcrsr to ColorCursor(mnew)
  29.   end if
  30.   colorcrsr(mGetSetCursor, newXCursor)
  31. end
  32.  
  33. on restoreCursor
  34.   if not objectp(colorcrsr) then
  35.     exit
  36.   end if
  37.   colorcrsr(mReleaseCursor)
  38.   colorcrsr(mdispose)
  39.   cursor(0)
  40.   cursor(4)
  41.   cursor(-1)
  42. end
  43.